home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / door / ds40bqb.zip / DOORSORC.INT < prev    next >
Text File  |  1992-06-11  |  6KB  |  169 lines
  1. DECLARE SUB ShellToDos (Shell.String$)
  2. DECLARE SUB QSend (WD$, Enter!)
  3. DECLARE FUNCTION CommInkey$ ()
  4. DECLARE FUNCTION CommKeyInkey$ ()
  5. DECLARE FUNCTION FileOpen! (FileName$, Access$, Sharing, C!)
  6. DECLARE FUNCTION CheckTimeLeft! ()
  7. DECLARE SUB BackSpace (WD$)
  8. DECLARE SUB ExtendedCode (A$, KeyBoard.Time.Out)
  9. DECLARE SUB BeepSpeaker ()
  10. DECLARE SUB NL (How.Many.Times!)
  11. DECLARE SUB Send (WD$, Bell!, Enter!, ColorUse!)
  12. DECLARE SUB Incomm (WD$, SendEnter!, LimitField!, ColorUse!)
  13. DECLARE FUNCTION AllTrun$ (WD$)
  14. DECLARE SUB ANSIMusic (Music$, Music)
  15. DECLARE SUB GameInfoUpdate (WD$, Enter, ColorUse, ColorBack)
  16. DECLARE SUB BackSpaceOver ()
  17. DECLARE SUB Center (WD$)
  18. DECLARE SUB ClrScrn ()
  19. DECLARE SUB ColorEasy (WD$, Fore, SendEnter)
  20. DECLARE FUNCTION DayOfWeek ()
  21. DECLARE SUB DoorBusy ()
  22. DECLARE SUB ErrorLevelSet (Error.Level)
  23. DECLARE SUB ExitDoor ()
  24. DECLARE FUNCTION FileExist (File.Name.Check$)
  25. DECLARE SUB GetTime (Hours, Minutes, Seconds, SinceMid#)
  26. DECLARE SUB HighScores (Score, PROGNAME$, OutputFileNumber)
  27. DECLARE SUB InitDoor ()
  28. DECLARE SUB MenuManager (Menu$(), CenterIt, TextClr, How.Many.Bars, Slct, BarFore, BarBack, Barnumber)
  29. DECLARE SUB MoveCursor (X, Y)
  30. DECLARE SUB Parser (Searchfor$, Searchin$, ParArray$(), ERRCODE)
  31. DECLARE FUNCTION RandNum (Low, High)
  32. DECLARE SUB ReadUsers (ERRCODE)
  33. DECLARE SUB ScriptCMD ()
  34. DECLARE SUB Sorter (ParArray$(), HowManyToSort)
  35. DECLARE SUB SysopPage (Answered)
  36. DECLARE SUB TimeConvert (Hours, Minutes, NT$)
  37. DECLARE SUB ViewFile (FileName$, ChkIt, MoreP, ExitP)
  38. DECLARE SUB WaitASec (How.Long.To.Wait)
  39. DECLARE SUB Windows (ULR, ULC, LRR, LRC, Fore, Back, BORDER, SHADOW)
  40. DECLARE SUB WriteUsers (ERRCODE)
  41. DECLARE SUB BlockSend (Array$(), CenterIt, LinesToSend)
  42. DECLARE SUB WindowPrint (WD$, Row, Col, Fore, Back)
  43. DECLARE SUB WindowInput (WD$, MaxLen, Row, Col, Fore, Back)
  44. DECLARE SUB RainbowSend (WD$, Bell, Enter, ColorUse)
  45. DECLARE SUB PromptIncomm (WD$, Default$, DefaultColor, LimitField, ColorUse)
  46. DECLARE SUB EntryIncomm (WD$, LimitField, FieldColor, ColorUse)
  47. DECLARE SUB AdjustTimeLimit (MIN)
  48.  
  49. COMMON SHARED /DoorSource/ ARG$, SYSDPATH$, BBSName$, SysopNM$, CallName$, Baud&, TIMELEFT, CommPort$, PROGNAME$, RELEASE$, ANSI, TWE$, I1$, I2$, O1$, O2$, Out.Of.Time, Yes, No, User.Color, BackGroundColor
  50. COMMON SHARED /DoorSource/ Exit.Dor.1$, Exit.Dor.2$, UserF$, UserL$, Time.Left, Caps, CommOnly, I3$, Page.Bell, Caller.Alarm, Sysop.Next, Hang.Up, User.Record, Network, Table$, Display.Toggle, Printer.Toggle, BusyFlag, UserFile$, Up.Key$, Down.Key$
  51. COMMON SHARED /DoorSource/ Parity, Filter, BusyFile$, TimeCred, SysFirst$, SysLast$, CommPort, Last.Clr.Used, NTH1$, NTH2$, NTH3$, EchoKey, No.Enter.Send, Exit.Dor.Clr1, Exit.Dor.Clr2, HotKey, Hot.Key, File.Missing$, BBSType$, Last.Time.Warning
  52. COMMON SHARED /DoorSource/ Node, TabSpace, InverseText, Sysop, BlinkText, Not.Around$, PARAM$, WindowNum%, Page.String$, PageSound.1, PageSound.2, PageSound.3, GameInfo, GameInfoCol, Default.Table$
  53. COMMON SHARED /DoorSource/ KeyBoardTimeOut, Protected.Input$, ANSI.Select$, NonAnsi.Select$, CarrierLossError, Ecode, Carrier.Check, VideoSeg%, No.Abort, Lines.Since, AutoMore, ANSIDetect
  54.  
  55. TYPE DATABLOCK
  56.       CityState AS STRING * 24
  57.       Password AS STRING * 12
  58.       BusinessPhone AS STRING * 13
  59.       VoicePhone AS STRING * 13
  60.       LastDateOn AS STRING * 20
  61.       LastTimeOn AS STRING * 5
  62.       ExpertMode AS STRING * 1
  63.       ProtocolType AS STRING * 5
  64.       LastDirListing AS STRING * 10
  65.       SecurityLevel AS LONG
  66.       TimesOn AS INTEGER
  67.       PageLength AS INTEGER
  68.       TotalUploads AS INTEGER
  69.       TotalDownloads AS INTEGER
  70.       DailyDownloadBytes AS DOUBLE
  71.       UserComment AS STRING * 30
  72.       SysopComment AS STRING * 30
  73.       ElapsedTime AS INTEGER
  74.       Subscription AS STRING * 20
  75.       SubscriptionExpire AS STRING * 20
  76.       AreaRegistration AS STRING * 50
  77.       AreaExpire AS STRING * 50
  78.       AreasToScan AS STRING * 50
  79.       TotalDownloadBytes AS DOUBLE
  80.       TotalUploadBytes AS DOUBLE
  81.       DeleteFlag AS STRING * 1
  82.       TimeEnteredDoor AS STRING * 5
  83.       AreaFrom AS INTEGER
  84.       MemorizedMessage AS LONG        ' PCBoard only
  85.       TimeCalled AS STRING * 5        ' Wildcat and PCBoard only
  86.       DailyDownloadTotal AS INTEGER   ' Wildcat only
  87.       MaxDownloadLimit AS DOUBLE      ' Wildcat only
  88.       LastRead AS INTEGER             ' Wildcat only
  89.       MaxDownloadKLimit AS DOUBLE     ' Wildcat, PCBoard, and DOORSYS only
  90.       ExpirationDate AS STRING * 10   ' DOORSYS only
  91.       LR0 AS STRING * 4  ' Last read pointers for PCBoard only
  92.       LR1 AS STRING * 4
  93.       LR2 AS STRING * 4
  94.       LR3 AS STRING * 4
  95.       LR4 AS STRING * 4
  96.       LR5 AS STRING * 4
  97.       LR6 AS STRING * 4
  98.       LR7 AS STRING * 4
  99.       LR8 AS STRING * 4
  100.       LR9 AS STRING * 4
  101.       LR10 AS STRING * 4
  102.       LR11 AS STRING * 4
  103.       LR12 AS STRING * 4
  104.       LR13 AS STRING * 4
  105.       LR14 AS STRING * 4
  106.       LR15 AS STRING * 4
  107.       LR16 AS STRING * 4
  108.       LR17 AS STRING * 4
  109.       LR18 AS STRING * 4
  110.       LR19 AS STRING * 4
  111.       LR20 AS STRING * 4
  112.       LR21 AS STRING * 4
  113.       LR22 AS STRING * 4
  114.       LR23 AS STRING * 4
  115.       LR24 AS STRING * 4
  116.       LR25 AS STRING * 4
  117.       LR26 AS STRING * 4
  118.       LR27 AS STRING * 4
  119.       LR28 AS STRING * 4
  120.       LR29 AS STRING * 4
  121.       LR30 AS STRING * 4
  122.       LR31 AS STRING * 4
  123.       LR32 AS STRING * 4
  124.       LR33 AS STRING * 4
  125.       LR34 AS STRING * 4
  126.       LR35 AS STRING * 4
  127.       LR36 AS STRING * 4
  128.       LR37 AS STRING * 4
  129.       LR38 AS STRING * 4
  130.       LR39 AS STRING * 4
  131. END TYPE
  132.  
  133. COMMON SHARED /DSUser/ UserBlock AS DATABLOCK
  134.  
  135. CONST MorePrompt = 1
  136. CONST PressKeyPrompt = 2
  137. CONST Default1 = " (Enter=no) "
  138. CONST Default2 = " (Enter=none) "
  139. CONST Default3 = " (Enter=quits) "
  140. CONST Black = 0
  141. CONST Blue = 1
  142. CONST Green = 2
  143. CONST Cyan = 3
  144. CONST Red = 4
  145. CONST Magenta = 5
  146. CONST Brown = 6
  147. CONST White = 7
  148. CONST Gray = 8
  149. CONST HiBlue = 9
  150. CONST HiGreen = 10
  151. CONST HiCyan = 11
  152. CONST HiRed = 12
  153. CONST HiMagenta = 13
  154. CONST Yellow = 14
  155. CONST HiWhite = 15
  156.  
  157. '
  158. '
  159. '        Door Source  - Copyrighted 1988,1989, 1990 - Written by Todd Miller
  160. '        Version 4.0  - Computer City, USA
  161. '
  162. '     ALL OR ANY MODIFCATIONS TO THIS PART OF DOOR SOURCE OR ANY OTHER
  163. '     PART OF DOOR SOURCE WILL RESULT IN MAJOR UNCORRECTABLE BUGS!
  164. '
  165.    CALL InitDoor
  166.  
  167. '                   Door Source 3.3 init completed!
  168.  
  169.